home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / wtour / pushbutton2.tcl < prev    next >
Text File  |  1995-06-29  |  313b  |  17 lines
  1. #
  2. # PushButton with callbacks
  3. #
  4.  
  5. xmPushButton .btn managed \
  6.     -labelString "Push here"
  7.  
  8. # simple callback
  9. .btn armCallback {puts stdout "I've been pressed"}
  10.  
  11. # all the info that can be got
  12. .btn disarmCallback {
  13.     puts stdout "I've been released
  14.     I am widget \"%w\"
  15.     I was released with reason \"%reason\""
  16. }
  17.